program prog;

var

	fichero1, fichero2, fichero3 : text;
	arrayDatos : array[1..8] of string;
	linea, aux : string;
	i, j, menor : integer;

begin



// Leemos el primer fichero y lo metemos en un array
assign(fichero1,'c:\temp\ficheroUno.txt');
reset(fichero1);
i := 1;
while not eof(fichero1) do
	begin
	 	Readln(fichero1,linea);
		arrayDatos[i] := linea;
		i:=i+1;
	end;



// Leemos el segundo fichero y lo metemos en un array
assign(fichero2,'c:\temp\ficheroDos.txt');
reset(fichero2);

while not eof(fichero2) do
	begin
	 	Readln(fichero2,linea);
		arrayDatos[i] := linea;
		i:=i+1;
	end;



//Una vez cargados todos los datos en el array, lo ordenamos
for i:= 1 to 8 do
  begin

  for j:=i+1 to 8 do
  	begin
	  menor := i;
	  if(arrayDatos[j] < arrayDatos[menor]) then
	    menor := j;

	  aux := arrayDatos[i];
	  arrayDatos[i] := arrayDatos[menor];
	  arrayDatos[menor] := aux;
	end;
end;

//Visualizamos el contenido ordenado
writeln();
writeln('Vemos el contenido ordenado y lo escribimos en c:\temp\ficherosalida.txt: ');
writeln();


assign(fichero3, 'c:\temp\ficherosalida.txt');
rewrite(fichero3);

for i:= 1 to 8 do
  begin
      writeln(arrayDatos[i]);
      writeln(fichero3, arrayDatos[i]);
  end;

close(fichero1);
close(fichero2);
close(fichero3);

writeln();
writeln('FIN');
readln();

end.
